﻿Public Class BEForum

    Public Const ID_CATEGORIA As String = "id_categoria"
    Public Const NOME_CATEGORIA As String = "nome_categoria"
    Public Const VISIVEL_CATEGORIA As String = "visivel_categoria"

    Private _idCateg As Integer
    Private _strNome As String
    Private _booVisivel As Boolean
    Private _lstSubcategoria As New List(Of BESubcategoria)
    Private _strVisibilidade As String 'usado para escrever "Visivel" ou "Não Visível"

    Public Property Id() As Integer
        Get
            Return _idCateg
        End Get
        Set(ByVal value As Integer)
            _idCateg = value
        End Set
    End Property

    Public Property Nome() As String
        Get
            Return _strNome
        End Get
        Set(ByVal value As String)
            _strNome = value
        End Set
    End Property

    Public Property Visivel() As Boolean
        Get
            Return _booVisivel
        End Get
        Set(ByVal value As Boolean)
            _booVisivel = value
        End Set
    End Property

    Public Property Subcategoria() As List(Of BESubcategoria)
        Get
            Return _lstSubcategoria
        End Get
        Set(ByVal value As List(Of BESubcategoria))
            _lstSubcategoria = value
        End Set
    End Property

    Public Property StrVisibilidade() As String
        Get
            Return _strVisibilidade
        End Get
        Set(ByVal value As String)
            _strVisibilidade = value
        End Set
    End Property

End Class
